home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
asmbler.arc
/
NULLS.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-11-19
|
1KB
|
63 lines
INCLUDE UTIL.INC
ASSUME CS:NULLSC,DS:NULLSC,ES:NULLSC,SS:NULLSC
NULLSC SEGMENT PARA PUBLIC 'CODE'
ORG 100H
NULLS: XOR BX,BX
MOV CL,BYTE PTR [BX].UPA
XOR CH,CH
LEA DI,[BX+1].UPA
SCANPARAM DX,ERROR1
SCANPARAM BX,CNT1
JMP ERROR1
CNT1: XOR AL,AL
MOV AH,3DH
INT 21H
JC ERROR
MOV BX,AX
CALL COUNTUP
NORMALTERM
ERROR1: MOV AX,19
ERRORTERM
ASSUME CS:NULLSC,DS:NULLSC,ES:NULLSC,SS:NULLSC
COUNTUP:
MOV DX,OFFSET BUFFER
CNT2: MOV CX,4096
MOV AH,3FH
INT 21H
JNC CNT5
JMP ERROR
CNT5: MOV CX,AX
MOV SI,AX
MOV DI,OFFSET BUFFER
MOV AL,0
CNT3: REPNE SCASB
JCXZ CNT4
INC LOLCNT
JMP CNT3
CNT4: CMP SI,4096
JE CNT2
MOV BX,01H
MOV DX,OFFSET BLANKS
CALL FWRITESTR
MOV AX,LOLCNT
CALL FWRITEINT
CALL FWRITELN
RET
MWRITESTR
MWRITEINT
MWRITELN
EVEN
LOLCNT DW 0
BLANKS DB ' ',0
BUFFER DB
NULLSC ENDS
END NULLS